home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / koala_instant_programmers_guide[koala_technologies_1983].nbz / hello k2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  112 lines
  1. 7 PRINT"[147]"
  2. 8 POKE 53281,3:PRINT"[144]":POKE 53280,6
  3. 10 C=12*4096
  4. 15 FOR I=0 TO 63:READ A:POKE C+I,A:NEXT
  5. 17 (null) TO 270
  6. 100 DATA 162,1,120,173,2,220,141,0,193,169,192,141,2,220,169
  7. 110 DATA 128,141,0,220,160,128,234,136,16,252,173,25,212,157
  8. 120 DATA 1,193,173,26,212,157,3,193,173,0,220,9,128,141,5,193
  9. 130 DATA 169,64,202,16,222,173,0,193,141,2,220,173,1,220,141
  10. 140 DATA 6,193,88,96
  11. 149 REM************VERTICAL TABBING********
  12. 150 PRINT""
  13. 151 VA=VT/2
  14. 152 VD=INT(VT/2)
  15. 153 IF VA-VD>.4 THEN PRINT
  16. 154 FOR CR=1 TO VD
  17. 155 PRINT""
  18. 156 NEXT CR
  19. 157 RETURN
  20. 260 REM*************TITLE PAGE**********
  21. 270 IF PEEK(32766)=13 AND PEEK(32767)=69THEN 400
  22. 272 POKE 32766,13:POKE 32767,69
  23. 280 PRINT"[147]":PRINT:PRINT:PRINT:PRINT"       KOALA TECHNOLOGIES CORP.":PRINT:PRINT:PRINTTAB(14)"PRESENTS"
  24. 281 PRINT:PRINT:T$="    THE INSTANT PROGRAMMER'S GUIDE":TC=50:GOSUB 1500
  25. 300 PRINT:PRINT:PRINT:PRINT:PRINT
  26. 310 PRINTTAB(24)"BY JEB EDDY"
  27. 320 PRINTTAB(24)"   DAVE MACKAY"
  28. 340 VTAB=22:GOSUB 150
  29. 341 PRINT" PRESS EITHER BUTTON TO CONTINUE..."
  30. 342 GOSUB 359
  31. 343 GOTO 400
  32. 355 REM**********BUTTON READ**************
  33. 359 C=12*4096
  34. 360 SYSC
  35. 362 S2=PEEK(C+262)
  36. 364 IF S2<>255 THEN 380
  37. 366 (null) TO 360
  38. 380 SYSC
  39. 382 S2=PEEK(C+262)
  40. 384 IF S2=255 THEN RETURN
  41. 386 GOTO 380
  42. 395 REM**********MAIN MENU****************
  43. 400 PRINT" "
  44. 420 PRINT"[147]"
  45. 440 DIM PG$(60):FOR K=5 TO 60:READ PG$(K)
  46. 460 IF PG$(K)="!" THEN 500
  47. 480 NEXT K
  48. 500 NP=K-1
  49. 510 RESTORE
  50. 540 PRINT"      HERE IS THE MAIN MENU:"
  51. 560 HT=3
  52. 580 FOR J=1 TO NP:VTAB=J:GOSUB 150
  53. 581 PRINTTAB(HT);PG$(J):NEXT J
  54. 600 VTAB=20:GOSUB 150
  55. 601 PRINT"TOUCH THE KOALAPAD, THEN MOVE THE CURSORTO THE PROGRAM YOU WANT."
  56. 602 PRINT"     THEN CLICK BUTTON #1"
  57. 1100 SYSC
  58. 1110 YP=PEEK(C+259)
  59. 1120 S2=PEEK(C+262)
  60. 1130 YS=INT((YP-5)/10)
  61. 1140 IF YS<=5 THEN YS=6
  62. 1150 IF YS>14 THEN YS=14
  63. 1152 IF YS<>PY THEN POKE 1027+40*PY,32
  64. 1160 POKE 1027+40*YS,160
  65. 1165 PY=YS
  66. 1170 IF S2<>255 THEN 1200
  67. 1180 (null) TO 1100
  68. 1200 IF YS<=5 THEN 1100
  69. 1202 IF YS=13 THEN 1100
  70. 1205 PRINT"[147]":VTAB=11:GOSUB 150
  71. 1210 ON YS-5 GOTO 1310,1330,1350,1360,1370,1380,1390,1100,1400,1100
  72. 1310 PRINT"       OK, KOALAPAD FUNDAMENTALS"
  73. 1311 CLR:POKE 31000,88
  74. 1315 LOAD"KOALAPAD BASICS",8
  75. 1330 PRINT"          OK, A HI-RES CURSOR"
  76. 1331 CLR
  77. 1335 LOAD"HI-RES PART ONE",8
  78. 1350 PRINT"           OK, COMPATIBILITY"
  79. 1352 CLR
  80. 1355 LOAD"COMPATIBILITY",8
  81. 1360 PRINT"        OK, MAKE YOUR OWN SPRITE"
  82. 1361 CLR
  83. 1365 LOAD"MAKE SPRITES",8
  84. 1370 PRINT"        OK, SOFT KEYBOARD IDEAS"
  85. 1371 CLR
  86. 1375 LOAD"SOFT KEYBOARD",8
  87. 1380 PRINT"           OK, A TEXT CURSOR"
  88. 1381 CLR
  89. 1385 LOAD"A TEXT CURSOR",8
  90. 1390 PRINT"          OK, AN INVITATION..."
  91. 1391 CLR
  92. 1395 LOAD"INVITATION",8
  93. 1400 PRINT"[147]":END
  94. 1500 REM********SLOW WRITNG SUBROUTINE*****
  95. 1510 FOR X=1 TO LEN(T$)
  96. 1520 FOR XX=1 TO TC:NEXT XX
  97. 1530 PRINTMID$(T$,X,1);
  98. 1540 NEXT X
  99. 1545 PRINT
  100. 1550 RETURN
  101. 8020 DATA" KOALAPAD FUNDAMENTALS"
  102. 8050 DATA" A HI-RES CURSOR"
  103. 8100 DATA" COMPATIBILITY"
  104. 8130 DATA" MAKE YOUR OWN SPRITE"
  105. 8140 DATA" SOFT KEYBOARD IDEAS"
  106. 8145 DATA" A TEXT CURSOR"
  107. 8150 DATA" AN INVITATION..."
  108. 8155 DATA" "
  109. 8160 DATA" QUIT"
  110. 8170 DATA"!"
  111. 8180 POKE 45,PEEK(174):POKE 46,PEEK(175)
  112.